home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / sys / SavInstaller.lha / Installer / install < prev    next >
Text File  |  1998-11-22  |  5KB  |  145 lines
  1.  
  2. /*********************************************************************************************
  3.  *
  4.  * installation script for the SavInstaller $VER: 0.7 (22.11.98)
  5.  *
  6.  * note, that this script makes use of seveal new features of the Savage-Installer
  7.  * like multilined comments, the new builtin variable @system-language and the
  8.  * enhanced pattern-match functionality of the DATABASE function
  9.  *
  10.  *********************************************************************************************/
  11.  
  12. (if (= @system-language "english")
  13.  
  14.     (
  15.       (set #msg_welcome (cat "Welcome to the Installation of the Savage-Installer\n\n"
  16.                              "The Savage-Installer wants to be a substitution of\n"
  17.                              "the original Installer by C=\n"
  18.                              "It offers many new features, looks much better and is\n"
  19.                              "smaller than the C= Installer"
  20.                         )
  21.       )
  22.       (set #msg_askfile_prompt "Where is the default Installer located?")
  23.       (set #msg_askfile_help (cat "Please select the original Installer by C=. "
  24.                                   "This script will make a backup copy of the "
  25.                                   "Installer and then, it will replace the "
  26.                                   "original by the new Savage-Installer."
  27.                              )
  28.       )
  29.       (set #msg_copylib_prompt "Now copying the Savage-Installer to \"%s\"")
  30.       (set #msg_copylib_help "")
  31.       (set #msg_askbool_prompt (cat "Your prefered language is \"%s\"\n"
  32.                                     "Do you want to install the related catalog (if it exists)?"
  33.                                )
  34.       )
  35.       (set #msg_askbool_help "")
  36.       (set #msg_done (cat "Done!\n"
  37.                           "The Savage-Installer replaced the original Installer\n"
  38.                           "and made a copy of the old one in \"%s\".\n\n"
  39.                           "Have fun with the new Installer and its features"
  40.                      )
  41.       )
  42.     )
  43. )
  44.  
  45. (if (= @system-language "deutsch")
  46.  
  47.     (
  48.       (set #msg_welcome (cat "Willkommen zur Installation des Savage-Installer\n\n"
  49.                              "Der Savage-Installer soll ein Ersatz für den\n"
  50.                              "originalen Installer von C= sein\n"
  51.                              "Er bietet viele neue Eigenschaften, sieht viel besser aus\n"
  52.                              "und ist kleiner als der C= Installer"
  53.                         )
  54.       )
  55.       (set #msg_askfile_prompt "Wo befindet sich der Installer?")
  56.       (set #msg_askfile_help (cat "Bitte wählen Sie den originalen Installer von C=. "
  57.                                   "Dieses Skript macht eine Kopie des originalen "
  58.                                   "Installers und wird danach den originalen durch "
  59.                                   "den neuen Savage-Installer ersetzen."
  60.                              )
  61.       )
  62.       (set #msg_copylib_prompt "Kopiere jetzt den Savage-Installer nach \"%s\"")
  63.       (set #msg_copylib_help "")
  64.       (set #msg_askbool_prompt (cat "Ihre eingestellte Sprache ist \"%s\"\n"
  65.                                     "Wollen Sie einen entsprechenden Katalog (falls "
  66.                                     "vorhanden) installieren?"
  67.                                )
  68.       )
  69.       (set #msg_askbool_help "")
  70.       (set #msg_done (cat "Fertig!\n"
  71.                           "Der Savage-Installer hat Ihren originalen Installer\n"
  72.                           "ersetzt und eine Kopie des alten als \"%s\" erzeugt.\n\n"
  73.                           "Viel Spaß mit dem neuen Installer und seinen Möglichkeiten"
  74.                      )
  75.       )
  76.     )
  77. )
  78.  
  79. /*********************************************************************************************/
  80.  
  81. (user expert)
  82.  
  83. (message #msg_welcome)
  84.  
  85. (welcome)
  86.  
  87. (complete 0)
  88.  
  89. (set #installer (askfile (prompt #msg_askfile_prompt)
  90.                          (default "c:installer")
  91.                          (help #msg_askfile_help)
  92.                 )
  93. )
  94. (set #installer_backup (cat #installer ".backup"))
  95.  
  96. (complete 25)
  97.  
  98. (if (not (exists #installer_backup (noreq)))
  99.     (
  100.       (rename #installer #installer_backup)
  101.     )
  102. ) 
  103.  
  104. (complete 50)
  105.  
  106. (copylib (prompt (#msg_copylib_prompt #installer))
  107.          (help #msg_copylib_help)
  108.          (confirm average)
  109.          (source (if (database "cpu" "(68000|68010)")
  110.                      ("c/installer000")
  111.                      ("c/installer020")
  112.                  )
  113.          )
  114.          (dest (pathonly #installer))
  115.          (newname (fileonly #installer))
  116. )
  117.  
  118. (complete 75)
  119.  
  120. (if (askbool (prompt (#msg_askbool_prompt @system-language))
  121.              (help #msg_askbool_help)
  122.              (default 0)
  123.     )
  124.  
  125.     (
  126.       (set #catalog_source (tackon (tackon "catalogs" @system-language) "savageinstaller.catalog"))
  127.       (set #catalog_dest (tackon "locale:catalogs" @system-language))
  128.  
  129.       (if (exists #catalog_source (noreq))
  130.           (if (exists #catalog_dest (noreq))
  131.               (copylib (source #catalog_source)
  132.                        (dest #catalog_dest)
  133.               )
  134.           )
  135.       )
  136.     )
  137. )
  138.  
  139. (complete 100)
  140.  
  141. (exit (#msg_done #installer_backup))
  142.  
  143.  
  144.  
  145.